﻿<!-- #include file="mymin.asp" -->
<%Call Head()
If key<>0 Then Call error("<card title=""警告""><p>权限不足！")

w "<card title='文章分类修改'><p>"

dim id,rs
id=request.querystring("id")

set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_list where classid="&id,myconn,1,1
if rs.eof then
response.write "没有此类别！<br/>"
else
response.write "类别名称:"&nowml(rs("class"))&"<br/>"
response.write "类别编号:"&nowml(rs("classid"))&"<br/>"
%>
----------<br/>
<a href='editwzclass.asp?sid=<%=sid%>&amp;id=<%=id%>'>[编辑分类]</a><br/>
<a href='delwzclass.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>'>[删除分类]</a><br/>
<%
end if
rs.close
set rs=nothing
%><a href='wzclass.asp?sid=<%=sid%>'>[返回分类]</a><%Call Last()%>